home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 15 / CU Amiga Magazine's Super CD-ROM 15 (1997)(EMAP Images)(GB)[!][issue 1997-10].iso / CUCD / Graphics / Ghostscript / source / gsflip.c < prev    next >
C/C++ Source or Header  |  1997-06-20  |  9KB  |  294 lines
  1. /* Copyright (C) 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2.   
  3.   This file is part of Aladdin Ghostscript.
  4.   
  5.   Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6.   or distributor accepts any responsibility for the consequences of using it,
  7.   or for whether it serves any particular purpose or works at all, unless he
  8.   or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9.   License (the "License") for full details.
  10.   
  11.   Every copy of Aladdin Ghostscript must include a copy of the License,
  12.   normally in a plain ASCII text file named PUBLIC.  The License grants you
  13.   the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14.   under certain conditions described in the License.  Among other things, the
  15.   License requires that the copyright notice and this notice be preserved on
  16.   all copies.
  17. */
  18.  
  19. /* gsflip.c */
  20. /* Routines for "flipping" image data */
  21. #include "gx.h"
  22. #include "gsbittab.h"
  23. #include "gsflip.h"
  24.  
  25. #define arch_has_byte_regs 1
  26.  
  27. /* Transpose a block of bits between registers. */
  28. #define transpose(r,s,mask,shift)\
  29.   r ^= (temp = ((s << shift) ^ r) & mask);\
  30.   s ^= temp >> shift
  31.  
  32. /* Define the size of byte temporaries.  On Intel CPUs, this should be */
  33. /* byte, but on all other CPUs, it should be uint. */
  34. #if arch_has_byte_regs
  35. typedef byte byte_var;
  36. #else
  37. typedef uint byte_var;
  38. #endif
  39.  
  40. #define vtab(v80,v40,v20,v10,v8,v4,v2,v1)\
  41.   bit_table_8(0,v80,v40,v20,v10,v8,v4,v2,v1)
  42.  
  43. /* Convert 3Mx1 to 3x1. */
  44. private void
  45. flip3x1(byte *buffer, const byte **planes, uint offset, uint nbytes)
  46. {    byte *out = buffer;
  47.     const byte *in1 = planes[0] + offset;
  48.     const byte *in2 = planes[1] + offset;
  49.     const byte *in3 = planes[2] + offset;
  50.     uint n = nbytes;
  51.     static const far_data bits32 tab3x1[256] = {
  52.       vtab(0x800000,0x100000,0x20000,0x4000,0x800,0x100,0x20,4)
  53.     };
  54.  
  55.     for ( ; n > 0; out += 3, ++in1, ++in2, ++in3, --n )
  56.       {    bits32 b24 =
  57.           tab3x1[*in1] | (tab3x1[*in2] >> 1) | (tab3x1[*in3] >> 2);
  58.         out[0] = (byte)(b24 >> 16);
  59.         out[1] = (byte)(b24 >> 8);
  60.         out[2] = (byte)b24;
  61.       }
  62. }
  63.  
  64. /* Convert 3Mx2 to 3x2. */
  65. private void
  66. flip3x2(byte *buffer, const byte **planes, uint offset, uint nbytes)
  67. {    byte *out = buffer;
  68.     const byte *in1 = planes[0] + offset;
  69.     const byte *in2 = planes[1] + offset;
  70.     const byte *in3 = planes[2] + offset;
  71.     uint n = nbytes;
  72.     static const far_data bits32 tab3x2[256] = {
  73.       vtab(0x800000,0x400000,0x20000,0x10000,0x800,0x400,0x20,0x10)
  74.     };
  75.  
  76.     for ( ; n > 0; out += 3, ++in1, ++in2, ++in3, --n )
  77.       {    bits32 b24 =
  78.           tab3x2[*in1] | (tab3x2[*in2] >> 2) | (tab3x2[*in3] >> 4);
  79.         out[0] = (byte)(b24 >> 16);
  80.         out[1] = (byte)(b24 >> 8);
  81.         out[2] = (byte)b24;
  82.       }
  83. }
  84.  
  85. /* Convert 3Mx4 to 3x4. */
  86. private void
  87. flip3x4(byte *buffer, const byte **planes, uint offset, uint nbytes)
  88. {    byte *out = buffer;
  89.     const byte *in1 = planes[0] + offset;
  90.     const byte *in2 = planes[1] + offset;
  91.     const byte *in3 = planes[2] + offset;
  92.     uint n = nbytes;
  93.  
  94.     for ( ; n > 0; out += 3, ++in1, ++in2, ++in3, --n )
  95.       {    byte_var b1 = *in1, b2 = *in2, b3 = *in3;
  96.         out[0] = (b1 & 0xf0) | (b2 >> 4);
  97.         out[1] = (b3 & 0xf0) | (b1 & 0xf);
  98.         out[2] = (byte)(b2 << 4) | (b3 & 0xf);
  99.       }
  100. }
  101.  
  102. /* Convert 3Mx8 to 3x8. */
  103. private void
  104. flip3x8(byte *buffer, const byte **planes, uint offset, uint nbytes)
  105. {    byte *out = buffer;
  106.     const byte *in1 = planes[0] + offset;
  107.     const byte *in2 = planes[1] + offset;
  108.     const byte *in3 = planes[2] + offset;
  109.     uint n = nbytes;
  110.  
  111.     for ( ; n > 0; out += 3, ++in1, ++in2, ++in3, --n )
  112.       {    out[0] = *in1;
  113.         out[1] = *in2;
  114.         out[2] = *in3;
  115.       }
  116. }
  117.  
  118. /* Convert 3Mx12 to 3x12. */
  119. private void
  120. flip3x12(byte *buffer, const byte **planes, uint offset, uint nbytes)
  121. {    byte *out = buffer;
  122.     const byte *pa = planes[0] + offset;
  123.     const byte *pb = planes[1] + offset;
  124.     const byte *pc = planes[2] + offset;
  125.     uint n = nbytes;
  126.  
  127.     /* We are guaranteed that the input is an integral number of pixels. */
  128.     /* This implies that n = 0 mod 3. */
  129.  
  130.     for ( ; n > 0; out += 9, pa += 3, pb += 3, pc += 3, n -= 3 )
  131.       {    byte_var a1 = pa[1], b0 = pb[0], b1 = pb[1],
  132.           b2 = pb[2], c1 = pc[1];
  133.         out[0] = pa[0];
  134.         out[1] = (a1 & 0xf0) | (b0 >> 4);
  135.         out[2] = (byte)((b0 << 4) | (b1 >> 4));
  136.         out[3] = pc[0];
  137.         out[4] = (c1 & 0xf0) | (a1 & 0xf);
  138.         out[5] = pa[2];
  139.         out[6] = (byte)((b1 << 4) | (b2 >> 4));
  140.         out[7] = (byte)((b2 << 4) | (c1 & 0xf));
  141.         out[8] = pc[2];
  142.       }
  143. }
  144.  
  145. /* Convert 4Mx1 to 4x1. */
  146. private void
  147. flip4x1(byte *buffer, const byte **planes, uint offset, uint nbytes)
  148. {    byte *out = buffer;
  149.     const byte *in1 = planes[0] + offset;
  150.     const byte *in2 = planes[1] + offset;
  151.     const byte *in3 = planes[2] + offset;
  152.     const byte *in4 = planes[3] + offset;
  153.     uint n = nbytes;
  154.  
  155.     for ( ; n > 0; out += 4, ++in1, ++in2, ++in3, ++in4, --n )
  156.       {    byte_var b1 = *in1, b2 = *in2, b3 = *in3, b4 = *in4;
  157.         byte_var temp;
  158.  
  159.         /* Transpose blocks of 1 */
  160.         transpose(b1, b2, 0x55, 1);
  161.         transpose(b3, b4, 0x55, 1);
  162.         /* Transpose blocks of 2 */
  163.         transpose(b1, b3, 0x33, 2);
  164.         transpose(b2, b4, 0x33, 2);
  165.         /* There's probably a faster way to do this.... */
  166.         out[0] = (b1 & 0xf0) | (b2 >> 4);
  167.         out[1] = (b3 & 0xf0) | (b4 >> 4);
  168.         out[2] = (byte)((b1 << 4) | (b2 & 0xf));
  169.         out[3] = (byte)((b3 << 4) | (b4 & 0xf));
  170.       }
  171. }
  172.  
  173. /* Convert 4Mx2 to 4x2. */
  174. private void
  175. flip4x2(byte *buffer, const byte **planes, uint offset, uint nbytes)
  176. {    byte *out = buffer;
  177.     const byte *in1 = planes[0] + offset;
  178.     const byte *in2 = planes[1] + offset;
  179.     const byte *in3 = planes[2] + offset;
  180.     const byte *in4 = planes[3] + offset;
  181.     uint n = nbytes;
  182.  
  183.     for ( ; n > 0; out += 4, ++in1, ++in2, ++in3, ++in4, --n )
  184.       {    byte_var b1 = *in1, b2 = *in2, b3 = *in3, b4 = *in4;
  185.         byte_var temp;
  186.  
  187.         /* Transpose blocks of 4x2 */
  188.         transpose(b1, b3, 0x0f, 4);
  189.         transpose(b2, b4, 0x0f, 4);
  190.         /* Transpose blocks of 2x1 */
  191.         transpose(b1, b2, 0x33, 2);
  192.         transpose(b3, b4, 0x33, 2);
  193.         out[0] = b1;
  194.         out[1] = b2;
  195.         out[2] = b3;
  196.         out[3] = b4;
  197.       }
  198. }
  199.  
  200. /* Convert 4Mx4 to 4x4. */
  201. private void
  202. flip4x4(byte *buffer, const byte **planes, uint offset, uint nbytes)
  203. {    byte *out = buffer;
  204.     const byte *in1 = planes[0] + offset;
  205.     const byte *in2 = planes[1] + offset;
  206.     const byte *in3 = planes[2] + offset;
  207.     const byte *in4 = planes[3] + offset;
  208.     uint n = nbytes;
  209.  
  210.     for ( ; n > 0; out += 4, ++in1, ++in2, ++in3, ++in4, --n )
  211.       {    byte_var b1 = *in1, b2 = *in2, b3 = *in3, b4 = *in4;
  212.         out[0] = (b1 & 0xf0) | (b2 >> 4);
  213.         out[1] = (b3 & 0xf0) | (b4 >> 4);
  214.         out[2] = (byte)((b1 << 4) | (b2 & 0xf));
  215.         out[3] = (byte)((b3 << 4) | (b4 & 0xf));
  216.       }
  217. }
  218.  
  219. /* Convert 4Mx8 to 4x8. */
  220. private void
  221. flip4x8(byte *buffer, const byte **planes, uint offset, uint nbytes)
  222. {    byte *out = buffer;
  223.     const byte *in1 = planes[0] + offset;
  224.     const byte *in2 = planes[1] + offset;
  225.     const byte *in3 = planes[2] + offset;
  226.     const byte *in4 = planes[3] + offset;
  227.     uint n = nbytes;
  228.  
  229.     for ( ; n > 0; out += 4, ++in1, ++in2, ++in3, ++in4, --n )
  230.       {    out[0] = *in1;
  231.         out[1] = *in2;
  232.         out[2] = *in3;
  233.         out[3] = *in4;
  234.       }
  235. }
  236.  
  237. /* Convert 4Mx12 to 4x12. */
  238. private void
  239. flip4x12(byte *buffer, const byte **planes, uint offset, uint nbytes)
  240. {    byte *out = buffer;
  241.     const byte *pa = planes[0] + offset;
  242.     const byte *pb = planes[1] + offset;
  243.     const byte *pc = planes[2] + offset;
  244.     const byte *pd = planes[3] + offset;
  245.     uint n = nbytes;
  246.  
  247.     /* We are guaranteed that the input is an integral number of pixels. */
  248.     /* This implies that n = 0 mod 3. */
  249.  
  250.     for ( ; n > 0; out += 12, pa += 3, pb += 3, pc += 3, pd += 3, n -= 3 )
  251.       {    byte_var a1 = pa[1], b1 = pb[1], c1 = pc[1], d1 = pd[1];
  252.         { byte_var v0;
  253.           out[0] = pa[0];
  254.           v0 = pb[0];
  255.           out[1] = (a1 & 0xf0) | (v0 >> 4);
  256.           out[2] = (byte)((v0 << 4) | (b1 >> 4));
  257.           out[3] = pc[0];
  258.           v0 = pd[0];
  259.           out[4] = (c1 & 0xf0) | (v0 >> 4);
  260.           out[5] = (byte)((v0 << 4) | (d1 >> 4));
  261.         }
  262.         { byte_var v2;
  263.           v2 = pa[2];
  264.           out[6] = (byte)((a1 << 4) | (v2 >> 4));
  265.           out[7] = (byte)((v2 << 4) | (b1 & 0xf));
  266.           out[8] = pb[2];
  267.           v2 = pc[2];
  268.           out[9] = (byte)((c1 << 4) | (v2 >> 4));
  269.           out[10] = (byte)((v2 << 4) | (d1 & 0xf));
  270.           out[11] = pd[2];
  271.         }
  272.       }
  273. }
  274.  
  275. /* Flip data given number of planes and bits per pixel. */
  276. private void (*image_flip_procs[2][13])(P4(byte *, const byte **, uint, uint)) = {
  277.   { 0, flip3x1, flip3x2, 0, flip3x4, 0, 0, 0, flip3x8, 0, 0, 0, flip3x12 },
  278.   { 0, flip4x1, flip4x2, 0, flip4x4, 0, 0, 0, flip4x8, 0, 0, 0, flip4x12 }
  279. };
  280. /* Here is the public interface to all of the above. */
  281. int
  282. image_flip_planes(byte *buffer, const byte **planes, uint offset, uint nbytes,
  283.   int num_planes, int bits_per_sample)
  284. {    void (*proc)(P4(byte *buffer, const byte **planes, uint offset, uint nbytes));
  285.  
  286.     if ( num_planes < 3 || num_planes > 4 ||
  287.          bits_per_sample < 1 || bits_per_sample > 12 ||
  288.          (proc = image_flip_procs[num_planes - 3][bits_per_sample]) == 0
  289.        )
  290.       return -1;
  291.     (*proc)(buffer, planes, offset, nbytes);
  292.     return 0;
  293. }
  294.